home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / dir-srt.zip / DIRNAME.BAT next >
DOS Batch File  |  1993-04-04  |  6KB  |  107 lines
  1. @ECHO OFF
  2. IF NOT '%1'=='' SET DIRNAME=%1
  3. IF NOT '%1'=='' GOTO HAVE_DIRECTORY
  4. SET DIRNAME=
  5. ECHO Enter the directory name to sort
  6. :LOOP
  7. GETALTR
  8. IF ERRORLEVEL 32 IF NOT ERRORLEVEL 33 SET DIRNAME=%DIRNAME%
  9. IF ERRORLEVEL 33 IF NOT ERRORLEVEL 34 SET DIRNAME=%DIRNAME%!
  10. IF ERRORLEVEL 34 IF NOT ERRORLEVEL 35 SET DIRNAME=%DIRNAME%"
  11. IF ERRORLEVEL 35 IF NOT ERRORLEVEL 36 SET DIRNAME=%DIRNAME%#
  12. IF ERRORLEVEL 36 IF NOT ERRORLEVEL 37 SET DIRNAME=%DIRNAME%$
  13. REM Must use double percent signs to display %.
  14. IF ERRORLEVEL 37 IF NOT ERRORLEVEL 38 SET DIRNAME=%DIRNAME%%%
  15. IF ERRORLEVEL 38 IF NOT ERRORLEVEL 39 SET DIRNAME=%DIRNAME%&
  16. IF ERRORLEVEL 39 IF NOT ERRORLEVEL 40 SET DIRNAME=%DIRNAME%'
  17. IF ERRORLEVEL 40 IF NOT ERRORLEVEL 41 SET DIRNAME=%DIRNAME%(
  18. IF ERRORLEVEL 41 IF NOT ERRORLEVEL 42 SET DIRNAME=%DIRNAME%)
  19. IF ERRORLEVEL 42 IF NOT ERRORLEVEL 43 SET DIRNAME=%DIRNAME%*
  20. IF ERRORLEVEL 43 IF NOT ERRORLEVEL 44 SET DIRNAME=%DIRNAME%+
  21. IF ERRORLEVEL 44 IF NOT ERRORLEVEL 45 SET DIRNAME=%DIRNAME%,
  22. IF ERRORLEVEL 45 IF NOT ERRORLEVEL 46 SET DIRNAME=%DIRNAME%-
  23. IF ERRORLEVEL 46 IF NOT ERRORLEVEL 47 SET DIRNAME=%DIRNAME%.
  24. IF ERRORLEVEL 47 IF NOT ERRORLEVEL 48 SET DIRNAME=%DIRNAME%/
  25. IF ERRORLEVEL 48 IF NOT ERRORLEVEL 49 SET DIRNAME=%DIRNAME%0
  26. IF ERRORLEVEL 49 IF NOT ERRORLEVEL 50 SET DIRNAME=%DIRNAME%1
  27. IF ERRORLEVEL 50 IF NOT ERRORLEVEL 51 SET DIRNAME=%DIRNAME%2
  28. IF ERRORLEVEL 51 IF NOT ERRORLEVEL 52 SET DIRNAME=%DIRNAME%3
  29. IF ERRORLEVEL 52 IF NOT ERRORLEVEL 53 SET DIRNAME=%DIRNAME%4
  30. IF ERRORLEVEL 53 IF NOT ERRORLEVEL 54 SET DIRNAME=%DIRNAME%5
  31. IF ERRORLEVEL 54 IF NOT ERRORLEVEL 55 SET DIRNAME=%DIRNAME%6
  32. IF ERRORLEVEL 55 IF NOT ERRORLEVEL 56 SET DIRNAME=%DIRNAME%7
  33. IF ERRORLEVEL 56 IF NOT ERRORLEVEL 57 SET DIRNAME=%DIRNAME%8
  34. IF ERRORLEVEL 57 IF NOT ERRORLEVEL 58 SET DIRNAME=%DIRNAME%9
  35. IF ERRORLEVEL 58 IF NOT ERRORLEVEL 59 SET DIRNAME=%DIRNAME%:
  36. IF ERRORLEVEL 59 IF NOT ERRORLEVEL 60 SET DIRNAME=%DIRNAME%;
  37. IF ERRORLEVEL 61 IF NOT ERRORLEVEL 62 SET DIRNAME=%DIRNAME%=
  38. IF ERRORLEVEL 63 IF NOT ERRORLEVEL 64 SET DIRNAME=%DIRNAME%?
  39. IF ERRORLEVEL 64 IF NOT ERRORLEVEL 65 SET DIRNAME=%DIRNAME%@
  40. IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 SET DIRNAME=%DIRNAME%A
  41. IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 SET DIRNAME=%DIRNAME%B
  42. IF ERRORLEVEL 67 IF NOT ERRORLEVEL 68 SET DIRNAME=%DIRNAME%C
  43. IF ERRORLEVEL 68 IF NOT ERRORLEVEL 69 SET DIRNAME=%DIRNAME%D
  44. IF ERRORLEVEL 69 IF NOT ERRORLEVEL 70 SET DIRNAME=%DIRNAME%E
  45. IF ERRORLEVEL 70 IF NOT ERRORLEVEL 71 SET DIRNAME=%DIRNAME%F
  46. IF ERRORLEVEL 71 IF NOT ERRORLEVEL 72 SET DIRNAME=%DIRNAME%G
  47. IF ERRORLEVEL 72 IF NOT ERRORLEVEL 73 SET DIRNAME=%DIRNAME%H
  48. IF ERRORLEVEL 73 IF NOT ERRORLEVEL 74 SET DIRNAME=%DIRNAME%I
  49. IF ERRORLEVEL 74 IF NOT ERRORLEVEL 75 SET DIRNAME=%DIRNAME%J
  50. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 SET DIRNAME=%DIRNAME%K
  51. IF ERRORLEVEL 76 IF NOT ERRORLEVEL 77 SET DIRNAME=%DIRNAME%L
  52. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 SET DIRNAME=%DIRNAME%M
  53. IF ERRORLEVEL 78 IF NOT ERRORLEVEL 79 SET DIRNAME=%DIRNAME%N
  54. IF ERRORLEVEL 79 IF NOT ERRORLEVEL 80 SET DIRNAME=%DIRNAME%O
  55. IF ERRORLEVEL 80 IF NOT ERRORLEVEL 81 SET DIRNAME=%DIRNAME%P
  56. IF ERRORLEVEL 81 IF NOT ERRORLEVEL 82 SET DIRNAME=%DIRNAME%Q
  57. IF ERRORLEVEL 82 IF NOT ERRORLEVEL 83 SET DIRNAME=%DIRNAME%R
  58. IF ERRORLEVEL 83 IF NOT ERRORLEVEL 84 SET DIRNAME=%DIRNAME%S
  59. IF ERRORLEVEL 84 IF NOT ERRORLEVEL 85 SET DIRNAME=%DIRNAME%T
  60. IF ERRORLEVEL 85 IF NOT ERRORLEVEL 86 SET DIRNAME=%DIRNAME%U
  61. IF ERRORLEVEL 86 IF NOT ERRORLEVEL 87 SET DIRNAME=%DIRNAME%V
  62. IF ERRORLEVEL 87 IF NOT ERRORLEVEL 88 SET DIRNAME=%DIRNAME%W
  63. IF ERRORLEVEL 88 IF NOT ERRORLEVEL 89 SET DIRNAME=%DIRNAME%X
  64. IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 SET DIRNAME=%DIRNAME%Y
  65. IF ERRORLEVEL 90 IF NOT ERRORLEVEL 91 SET DIRNAME=%DIRNAME%Z
  66. IF ERRORLEVEL 91 IF NOT ERRORLEVEL 92 SET DIRNAME=%DIRNAME%[
  67. IF ERRORLEVEL 92 IF NOT ERRORLEVEL 93 SET DIRNAME=%DIRNAME%\
  68. IF ERRORLEVEL 93 IF NOT ERRORLEVEL 94 SET DIRNAME=%DIRNAME%]
  69. IF ERRORLEVEL 94 IF NOT ERRORLEVEL 95 SET DIRNAME=%DIRNAME%^
  70. IF ERRORLEVEL 95 IF NOT ERRORLEVEL 96 SET DIRNAME=%DIRNAME%_
  71. IF ERRORLEVEL 96 IF NOT ERRORLEVEL 97 SET DIRNAME=%DIRNAME%`
  72. IF ERRORLEVEL 97 IF NOT ERRORLEVEL 98 SET DIRNAME=%DIRNAME%a
  73. IF ERRORLEVEL 98 IF NOT ERRORLEVEL 99 SET DIRNAME=%DIRNAME%b
  74. IF ERRORLEVEL 99 IF NOT ERRORLEVEL 100 SET DIRNAME=%DIRNAME%c
  75. IF ERRORLEVEL 100 IF NOT ERRORLEVEL 101 SET DIRNAME=%DIRNAME%d
  76. IF ERRORLEVEL 101 IF NOT ERRORLEVEL 102 SET DIRNAME=%DIRNAME%e
  77. IF ERRORLEVEL 102 IF NOT ERRORLEVEL 103 SET DIRNAME=%DIRNAME%f
  78. IF ERRORLEVEL 103 IF NOT ERRORLEVEL 104 SET DIRNAME=%DIRNAME%g
  79. IF ERRORLEVEL 104 IF NOT ERRORLEVEL 105 SET DIRNAME=%DIRNAME%h
  80. IF ERRORLEVEL 105 IF NOT ERRORLEVEL 106 SET DIRNAME=%DIRNAME%i
  81. IF ERRORLEVEL 106 IF NOT ERRORLEVEL 107 SET DIRNAME=%DIRNAME%j
  82. IF ERRORLEVEL 107 IF NOT ERRORLEVEL 108 SET DIRNAME=%DIRNAME%k
  83. IF ERRORLEVEL 108 IF NOT ERRORLEVEL 109 SET DIRNAME=%DIRNAME%l
  84. IF ERRORLEVEL 109 IF NOT ERRORLEVEL 110 SET DIRNAME=%DIRNAME%m
  85. IF ERRORLEVEL 110 IF NOT ERRORLEVEL 111 SET DIRNAME=%DIRNAME%n
  86. IF ERRORLEVEL 111 IF NOT ERRORLEVEL 112 SET DIRNAME=%DIRNAME%o
  87. IF ERRORLEVEL 112 IF NOT ERRORLEVEL 113 SET DIRNAME=%DIRNAME%p
  88. IF ERRORLEVEL 113 IF NOT ERRORLEVEL 114 SET DIRNAME=%DIRNAME%q
  89. IF ERRORLEVEL 114 IF NOT ERRORLEVEL 115 SET DIRNAME=%DIRNAME%r
  90. IF ERRORLEVEL 115 IF NOT ERRORLEVEL 116 SET DIRNAME=%DIRNAME%s
  91. IF ERRORLEVEL 116 IF NOT ERRORLEVEL 117 SET DIRNAME=%DIRNAME%t
  92. IF ERRORLEVEL 117 IF NOT ERRORLEVEL 118 SET DIRNAME=%DIRNAME%u
  93. IF ERRORLEVEL 118 IF NOT ERRORLEVEL 119 SET DIRNAME=%DIRNAME%v
  94. IF ERRORLEVEL 119 IF NOT ERRORLEVEL 120 SET DIRNAME=%DIRNAME%w
  95. IF ERRORLEVEL 120 IF NOT ERRORLEVEL 121 SET DIRNAME=%DIRNAME%x
  96. IF ERRORLEVEL 121 IF NOT ERRORLEVEL 122 SET DIRNAME=%DIRNAME%y
  97. IF ERRORLEVEL 122 IF NOT ERRORLEVEL 123 SET DIRNAME=%DIRNAME%z
  98. IF ERRORLEVEL 123 IF NOT ERRORLEVEL 124 SET DIRNAME=%DIRNAME%{
  99. IF ERRORLEVEL 125 IF NOT ERRORLEVEL 126 SET DIRNAME=%DIRNAME%}
  100. IF ERRORLEVEL 126 IF NOT ERRORLEVEL 127 SET DIRNAME=%DIRNAME%~
  101. IF ERRORLEVEL 13 IF NOT ERRORLEVEL 14 GOTO HAVE_DIRECTORY
  102. GOTO LOOP
  103. :HAVE_DIRECTORY
  104. ECHO Sorting %DIRNAME%
  105. DIR %DIRNAME% | SORT | FIND /V "i"
  106. SET DIRNAME=
  107.